home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusCheckdesktop.dopus5 < prev    next >
Text File  |  1998-09-12  |  334b  |  13 lines
  1. /* DopusCheckdesktop.dopus5 */
  2. options results
  3. address 'DOPUS.1'
  4. dopus getdesktop
  5. deskpath = result
  6. address command 'MakeDir 'deskpath'T'
  7. dopus checkdesktop deskpath
  8. text = 'There should be an icon for ''T'' on the Desktop'
  9. dopus request '"'text'" OK'
  10. address command 'Delete 'deskpath'T FORCE QUIET'
  11. dopus checkdesktop deskpath
  12. exit
  13.